home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Windows Expert
/
Windows Expert.iso
/
others
/
amimacro.zip
/
SAVETOC.SMM
< prev
next >
Wrap
INI File
|
1993-04-05
|
1KB
|
114 lines
[ver]
4
[sty]
_MACRO.STY
[files]
[charset]
82
ANSI (Windows, IBM CP 1252)
[revisions]
0
[prn]
Citizen GSX-140
[port]
LPT1:
[lang]
1
[desc]
Saves the current document to the C:\AMIPRO\DOCS\ under the same name and description.
734074666
2
734072955
23
1
0
0
0
0
1
[fopts]
0
1
0
0
[lnopts]
2
Body Text
1
[docopts]
5
2
[GramStyle]
[l1]
0
[pg]
1
13 0 12 1025 0 0 0 216 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
[edoc]
<:#216,10800>FUNCTION SavetoC()
<:#216,10800>onerror endit
<:#216,10800>oncancel endit
<:#216,10800>Hourglass(1)
<:#216,10800>IgnoreKeyboard(1)
<:#216,10800>dn=GetDocInfo$(1)
<:#216,10800>di=GetDocInfo$(7)
<:#216,10800>dn=strcat$("C:\AMIPRO\DOCS\",dn)
SaveAs(dn,0,di,"")
<:#216,10800>Endit:
<:#216,10800>Hourglass(0)
<:#216,10800>IgnoreKeyboard(0)
<:#216,10800>END FUNCTION
>
[Embedded]
00000966
>
[macsum] 1
SavetoC 0 0 3 0
[macse]
14 SavetoC
20 00000156
19 00000156
0 296 1
0 32 1
0 279 1
13
8 1
0 279 7
13
8 2
0 16 "C:\AMIPRO\DOCS\" "{1}"
13
8 1
2 104 1 "{1}" 0 "{2}" ""
0 296 0
0 32 0
6 0
15
9
00000991